<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.3r</name>
<id>-1</id>
<cardCount>140</cardCount>
<cardID>4851</cardID>
<listID>46914</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--©1988 Steve Drazga & AnalytX--••••••••••••••••••••••••••••••••••••••••••••••••••on openStackhide message boxset userlevel to 5end openStack--••••••••••••••••••••••••••••••••••••••••••••••••••on mouseupif the optionkey is not down then exit mouseupelseif the shiftkey is down then edit script of this backgroundelse edit script of targetend ifend mouseup--••••••••••••••••••••••••••••••••••••••••••••••••••on controlbutton refif the commandkey is down thenset cursor to 4visual dissolve to blackvisual dissolvego first card of background refexit controlbuttonend ifset cursor to 4put DialogList("©1988SDrazga",card field ref of card id 4851,comma) into selectedif selected is not empty thenpush this cardvisual scroll left to grayvisual scroll rightgo card selectedif the result is not empty then beepend ifend controlbutton--••••••••••••••••••••••••••••••••••••••••••••••••••on goPrevset lockmessages to trueif (id of this card) is (id of first card of this bkgnd) thenbeepanswer "This is the first "&short name of this bkgnd&" card."exit goPrevelsevisual scroll right very fastsend closecard to this cardgo prev cardsend opencard to this cardend ifend goPrev--••••••••••••••••••••••••••••••••••••••••••••••••••on goNextset lockmessages to trueif (id of this card) is (id of last card of this bkgnd) thenbeepanswer "This is the last "&short name of this bkgnd&" card."exit goNextelsevisual scroll left very fastsend closecard to this cardgo next cardsend opencard to this cardend ifend goNext--••••••••••••••••••••••••••••••••••••••••••••••••••on newcardask "What do you want to name this card?"put it into newNameset cursor to 4put the short name of this background into rememberThisput 0 into hererepeat until (here is empty) or (newName is empty)put findstring("©1988SDrazga",newName,card field rememberThis of card id 4851,comma) into hereif here is not empty thenbeepask "There is already a card with that name "&¬"in this section. Please select another name..." with newNameput it into newNameend ifend repeatif (newName is empty) thendomenu delete cardhide messageexit newcardend ifput "Please wait while we update things up for you..."set the name of this card to newNameput newName into field nameput "reIndexing this section..."put ","&newName after card field rememberThis of card id 4851put SortItems(card field rememberThis of card id 4851) into card field rememberThis of card id 4851put "reIndexing master Index..."put ","&newName after card field index of card id 4851put SortItems(card field index of card id 4851) into card field index of card id 4851hide message windowend newcard--••••••••••••••••••••••••••••••••••••••••••••••••••on deleteCardput the short name of this background into rememberThisput short Name of this card into deleteThisput "Updating the index of this section..."put findstring("©1988SDra
